unit dmodPrincipal;

interface

uses
  SysUtils, Classes, DBXpress, FMTBcd, DB, DBClient, Provider, SqlExpr;

type
  TdmPrincipal = class(TDataModule)
    sqlConexao: TSQLConnection;
    cdsCliente: TClientDataSet;
    dspCliente: TDataSetProvider;
    sdsCliente: TSQLDataSet;
    cdsEndereco: TClientDataSet;
    dspEndereco: TDataSetProvider;
    sdsEndereco: TSQLDataSet;
    dscliente: TDataSource;
    cdsTitular: TClientDataSet;
    dsptitular: TDataSetProvider;
    sdsTitular: TSQLDataSet;
    cdsTitularCODCLIENTE: TIntegerField;
    cdsTitularNOMECLIENTE: TStringField;
    cdsTitularRAZAOSOCIAL: TStringField;
    cdsTitularCONTATO: TStringField;
    cdsTitularTIPOFIRMA: TSmallintField;
    cdsTitularCPF: TStringField;
    cdsTitularCNPJ: TStringField;
    cdsTitularINSCESTADUAL: TStringField;
    cdsTitularRG: TStringField;
    cdsTitularSEGMENTO: TSmallintField;
    cdsTitularREGIAO: TSmallintField;
    cdsTitularLIMITECREDITO: TFloatField;
    cdsTitularDATACADASTRO: TDateField;
    cdsTitularCODUSUARIO: TIntegerField;
    cdsTitularSTATUS: TSmallintField;
    cdsTitularHOMEPAGE: TStringField;
    cdsTitularPRAZORECEBIMENTO: TSmallintField;
    cdsTitularPRAZOENTREGA: TSmallintField;
    cdsTitularCODBANCO: TSmallintField;
    cdsTitularBASE_ICMS: TSmallintField;
    cdsTitularDATANASC: TDateField;
    cdsTitularCONTA_CLIENTE: TStringField;
    cdsTitularOBS: TStringField;
    cdsTitularTEM_IE: TStringField;
    cdsTitularID_COB: TIntegerField;
    cdsTitularDATARESC: TDateField;
    cdsTitularNOMEMAE: TStringField;
    cdsTitularSEXO: TStringField;
    cdsTitularFORMA_CORRESPOND: TStringField;
    cdsTitularGRUPO_CLIENTE: TStringField;
    cdsTitularCODINCLUCANC: TIntegerField;
    cdsTitularEXIST_COBERT: TStringField;
    cdsTitularEXISTCOPART: TStringField;
    cdsTitularDATAREINC: TDateField;
    cdsTitularGERAAVISO: TStringField;
    cdsTitularGERAENV: TStringField;
    cdsTitularGERABOL: TStringField;
    cdsTitularEMVIAGEM: TStringField;
    cdsTitularDTAALTERA: TDateField;
    cdsTitularSERIE: TStringField;
    cdsTitularCOD_FAIXA: TIntegerField;
    cdsTitularRA: TStringField;
    sqlEmpresa: TSQLDataSet;
    dsEmpresa: TDataSource;
    sqlEmpresaDIVERSOS1: TStringField;
    sqlEmpresaANOLETIVO: TIntegerField;
    cdsEmpresa: TClientDataSet;
    dspEmpresa: TDataSetProvider;
    cdsEmpresaDIVERSOS1: TStringField;
    cdsEmpresaANOLETIVO: TIntegerField;
    cdsTitularSITUACAOESCOLAR: TIntegerField;
    cdsTitularLIVRONASC: TStringField;
    cdsTitularUFNASC: TStringField;
    sdsTodos: TSQLDataSet;
    dspTodos: TDataSetProvider;
    dsTodos: TClientDataSet;
    sdsTodosCODCLIENTE: TIntegerField;
    sdsTodosNOMECLIENTE: TStringField;
    sdsTodosRAZAOSOCIAL: TStringField;
    sdsTodosCONTATO: TStringField;
    sdsTodosTIPOFIRMA: TSmallintField;
    sdsTodosCPF: TStringField;
    sdsTodosCNPJ: TStringField;
    sdsTodosINSCESTADUAL: TStringField;
    sdsTodosRG: TStringField;
    sdsTodosSEGMENTO: TSmallintField;
    sdsTodosREGIAO: TSmallintField;
    sdsTodosLIMITECREDITO: TFloatField;
    sdsTodosDATACADASTRO: TDateField;
    sdsTodosCODUSUARIO: TIntegerField;
    sdsTodosSTATUS: TSmallintField;
    sdsTodosHOMEPAGE: TStringField;
    sdsTodosPRAZORECEBIMENTO: TSmallintField;
    sdsTodosPRAZOENTREGA: TSmallintField;
    sdsTodosCODBANCO: TSmallintField;
    sdsTodosBASE_ICMS: TSmallintField;
    sdsTodosDATANASC: TDateField;
    sdsTodosCONTA_CLIENTE: TStringField;
    sdsTodosOBS: TStringField;
    sdsTodosTEM_IE: TStringField;
    sdsTodosID_COB: TIntegerField;
    sdsTodosDATARESC: TDateField;
    sdsTodosNOMEMAE: TStringField;
    sdsTodosSEXO: TStringField;
    sdsTodosFORMA_CORRESPOND: TStringField;
    sdsTodosGRUPO_CLIENTE: TStringField;
    sdsTodosCODINCLUCANC: TIntegerField;
    sdsTodosEXIST_COBERT: TStringField;
    sdsTodosEXISTCOPART: TStringField;
    sdsTodosDATAREINC: TDateField;
    sdsTodosGERAAVISO: TStringField;
    sdsTodosGERAENV: TStringField;
    sdsTodosGERABOL: TStringField;
    sdsTodosEMVIAGEM: TStringField;
    sdsTodosDTAALTERA: TDateField;
    sdsTodosSERIE: TStringField;
    sdsTodosCOD_FAIXA: TIntegerField;
    sdsTodosRA: TStringField;
    sdsTodosSITUACAOESCOLAR: TIntegerField;
    sdsTodosLIVRONASC: TStringField;
    sdsTodosUFNASC: TStringField;
    sdsTodosESTADORG: TStringField;
    dsTodosCODCLIENTE: TIntegerField;
    dsTodosNOMECLIENTE: TStringField;
    dsTodosRAZAOSOCIAL: TStringField;
    dsTodosCONTATO: TStringField;
    dsTodosTIPOFIRMA: TSmallintField;
    dsTodosCPF: TStringField;
    dsTodosCNPJ: TStringField;
    dsTodosINSCESTADUAL: TStringField;
    dsTodosRG: TStringField;
    dsTodosSEGMENTO: TSmallintField;
    dsTodosREGIAO: TSmallintField;
    dsTodosLIMITECREDITO: TFloatField;
    dsTodosDATACADASTRO: TDateField;
    dsTodosCODUSUARIO: TIntegerField;
    dsTodosSTATUS: TSmallintField;
    dsTodosHOMEPAGE: TStringField;
    dsTodosPRAZORECEBIMENTO: TSmallintField;
    dsTodosPRAZOENTREGA: TSmallintField;
    dsTodosCODBANCO: TSmallintField;
    dsTodosBASE_ICMS: TSmallintField;
    dsTodosDATANASC: TDateField;
    dsTodosCONTA_CLIENTE: TStringField;
    dsTodosOBS: TStringField;
    dsTodosTEM_IE: TStringField;
    dsTodosID_COB: TIntegerField;
    dsTodosDATARESC: TDateField;
    dsTodosNOMEMAE: TStringField;
    dsTodosSEXO: TStringField;
    dsTodosFORMA_CORRESPOND: TStringField;
    dsTodosGRUPO_CLIENTE: TStringField;
    dsTodosCODINCLUCANC: TIntegerField;
    dsTodosEXIST_COBERT: TStringField;
    dsTodosEXISTCOPART: TStringField;
    dsTodosDATAREINC: TDateField;
    dsTodosGERAAVISO: TStringField;
    dsTodosGERAENV: TStringField;
    dsTodosGERABOL: TStringField;
    dsTodosEMVIAGEM: TStringField;
    dsTodosDTAALTERA: TDateField;
    dsTodosSERIE: TStringField;
    dsTodosCOD_FAIXA: TIntegerField;
    dsTodosRA: TStringField;
    dsTodosSITUACAOESCOLAR: TIntegerField;
    dsTodosLIVRONASC: TStringField;
    dsTodosUFNASC: TStringField;
    dsTodosESTADORG: TStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmPrincipal: TdmPrincipal;
  dbxconec: TStringList;
  str_relatorio : String;

implementation

{$R *.dfm}

procedure TdmPrincipal.DataModuleCreate(Sender: TObject);
begin
 sqlConexao.Connected := False;
 sqlConexao.LoadParamsFromIniFile('dbxconnections.ini');
 sqlConexao.LibraryName := 'dbexpUIBfire15.dll';
 sqlConexao.VendorLib := 'FBCLIENT.DLL';
 dbxconec := TStringList.Create;
 try
   dbxconec.LoadFromFile('dbxconnections.ini');
   str_relatorio := dbxconec[14];
   str_relatorio := copy(str_relatorio,16,length(str_relatorio));
 finally
   dbxconec.Free;
 end;
end;

end.
